home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpC_1007_EditNum < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.0 KB  |  46 lines
  1. %case window field%
  2. %case create%
  3.     SetRect (&bounds, %top%, %left%, %bottom%, %right%);
  4.     cur->%FieldName% = TENew (&bounds, &bounds);
  5.     TEAutoView (true, cur->%FieldName%);
  6. %case dispose%
  7.     TEDispose (cur->%HandleName%);
  8. %case mousein%
  9.     if (PtInRect (where, &(**(cur->%HandleName%)).viewRect)) {
  10.         if (cur->text != nil) {
  11.             TEDeactivate (cur->text);
  12.         }
  13.         cur->text = cur->%HandleName%;
  14.         TEActivate (cur->text);
  15.         TEClick (where, false, cur->text);
  16.     }
  17. %case update%
  18.     %If lang = MPW%
  19.         TEUpdate (&qd.thePort->portRect, cur->%HandleName%);
  20.     %end if%
  21.     %If lang = Think%
  22.         TEUpdate (&thePort->portRect, cur->%HandleName%);
  23.     %end if%
  24. %case activate%
  25. %case track%
  26. %case itemNr%
  27.     %DefineItem%
  28. %case dialog field%
  29.     long%        %%fieldname%;
  30. %case init field%
  31.     info->%fieldname% = 0;
  32. %case auxiliary%
  33. %case filter%
  34. %case set%
  35.     SetDNum (%itemname%, info->%fieldname%);
  36. %case hit%
  37.     %if not disabled%
  38.         case %itemname%:
  39.                 GetDNum (itemNr, &info->%fieldname%);
  40.             break;
  41.     %endif%
  42. %case finish%
  43.     %if disabled%
  44.         GetDNum (%itemname%, &info->%fieldname%);
  45.     %endif%
  46.